<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.0</name>
<id>-1</id>
<cardCount>10</cardCount>
<cardID>8826</cardID>
<listID>4546</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>function delReturns theTextrepeat until last char of theText is not RETURNdelete last char of theTextend repeatreturn theTextend delReturns----テ①テ`テテ嘉テョテテ「テティテテゥテ①テhテテョテテ姪テァ--on dealAction KYOUgo cd KYOUput delReturns(fld "テ陰テ丑テ鰻テ嘉。テ嘉ャテ陰テ韻テ影テ嘉") into ACITEMif ACITEM is not "" then put return after ACITEMput delReturns(fld "ティdテウvテャx") into JuyoDogo first cd of bg "テ厩テ臼テ姥テ嘉姪 [テ嘉」"repeat while fld "テャヒ凖ッt"<>KYOUput the number of lines of fld "テ陰テ丑テ鰻テ嘉。テ嘉ャテ陰テ韻テ影テ嘉" into Nrepeat with i = 1 to Nput line i of fld "テ荏テ宇テ叡テ丑" into chkboxif char 1 of chkbox is "テァナ" then next repeatput line i of fld "テ陰テ丑テ鰻テ嘉。テ嘉ャテ陰テ韻テ影テ嘉" into crtIctItmput delReturns(crtIctItm) into crtIctItmif (crtIctItm = "") or (crtIctItm = " ") or (crtIctItm = "テ①") then next repeatput char 1 of crtIctItm into HAJIMENOMOJIif (HAJIMENOMOJI = " ") or (HAJIMENOMOJI = "テ①") then next repeatput crtIctItm & return after ACITEMput number of lines of ACITEM into BASHOput line i of fld "ティdテウvテャx" into juyoput juyo into line BASHO of JuyoDoput " " into line i of fld "テ陰テ丑テ鰻テ嘉。テ嘉ャテ陰テ韻テ影テ嘉"put " " into line i of fld "ティdテウvテャx"end repeatput "" into fld id 51go to next cdend repeatgo cd KYOUput ACITEM into fld "テ陰テ丑テ鰻テ嘉。テ嘉ャテ陰テ韻テ影テ嘉"put JuyoDo into fld "ティdテウvテャx"end dealActionon dspActionput the number of lines of fld "テ陰テ丑テ鰻テ嘉。テ嘉ャテ陰テ韻テ影テ嘉" into Nif N = 0thenput "" into fld "テ陰テ丑テ鰻テ嘉。テ嘉ャ"exit dspActionend ifput 0 into sumiNumrepeat with i = 1 to Nput line i of fld id 40 into sumiif (char 1 of sumi = "テァナ") then put sumiNum+1 into sumiNumend repeatput N - sumiNum into Nif N = 0then put "" into fld "テ陰テ丑テ鰻テ嘉。テ嘉ャ"else put "テァツーテャヒ凖テサo Do テ陰テ韻テ影テ嘉テテ" && N && "テァテテア竅テ竕暗竏" into fld "テ陰テ丑テ鰻テ嘉。テ嘉ャ"end dspActionon suspendStackdelmend suspendStackon resumeStackcremend resumeStackon openStackglobal NameCardglobal konoCardgo cd "テ迂テ [テ益テ泳テ嘉ャテ碓テ嘉 テ叡テ瓜テ [テ姥"put the date into KYOUconvert KYOU to dateItemsput KYOU into fld "テ」Nテャテテャヒ"put item 1 of KYOU into NENput item 2 of KYOU into TUKIput item 3 of KYOU into HIput item 7 of KYOU into YOBIlock screenset cursor to watch--テ①テァツーテャヒ凖テεャヒ凖ッtテテε厩テ臼テ姥テ嘉姪 [テ嘉」テ雨テ [テ栄テ邃「テ窶 テテ暗ツゥテ⑨go cd KYOU--テ①テ窶 テツ。テホゥテテテツェテツアテ窶ヲテョテ堙窶氾②テツサテツゥテツ。テホゥテテテァテ湘テ暗③テツェテツオテニ津ァツーテャヒ凖窶ヲテ 竅テャテテ竏妥テ暗③if the result is not emptythengo last cd of bg "テ厩テ臼テ姥テ嘉姪 [テ嘉」"put KYOU into NameCarddoMenu "New Card"end ifgo cd KYOU--テ①テァツーテャヒ凖テεャヒ凖ッtテï」ソティテォテ竕 put date() into fld "テァツーテャヒ凖テεャヒ凖ッt"-- To Do テ陰テ韻テ影テ嘉テテεィテ テウテケテ竏テッ¥テゥツカdealAction KYOUdspAction-- テ韻テ悦テ嘉ャテ曳テウïャテテεィテ テウテケput "" into fld id 59dspAnualEv NEN,TUKI,HIdspMonthEv NEN,TUKI,HIdspWeekEv YOBIdspOneTimeEv NEN,TUKI,HIdspSpecialEv NEN,TUKI,HI-- テ右テ韻テ [テ丑テ嘉、テ [テ陰テ嘉「テ [テ嘉テï」ソテ瓜テ叡テ曳テ竏妥テalermSet YOBIgo cd KYOUput number of lines of delReturns(fld "テ「ホゥテテεャヒ" ) into Aif A >= 14thenset the style of fld "テ「ホゥテテεャヒ" to scrollingelseset the style of fld "テ「ホゥテテεャヒ" to shadowend if--テ①テ嘉 テ泳テ嘉姪 [テï」ソテュツォテ「ツ。テ竏妥テcremunlock screen with visual effect dissolveput short name of this card into konoCardend openStackon closeStackset cursor to busygo cd "テ迂テ [テ益テ泳テ嘉ャテ碓テ嘉 テ叡テ瓜テ [テ姥"lock screendoMenu "Compact Stack"delmend closeStackon goBackTodayput fld "テ」Nテャテテャヒ" of cd "テ迂テ [テ益テ泳テ嘉ャテ碓テ嘉 テ叡テ瓜テ [テ姥" into CDNAMEgo cd CDNAMEend goBackToday----テ①テ㈻テツャテテεャヒ凖ッtテテεャヒ凖ェテョテテεァ竏妥ï」ソテ」テ テïャづテ--function getDuration Y1,M1,D1,Y2,M2,D2put "0,0,0,0,0,0,0" into HAJIMEput "0,0,0,0,0,0,0" into OWARIput Y1 into item 1 of HAJIMEput M1 into item 2 of HAJIMEput D1 into item 3 of HAJIMEconvert HAJIME to secondsput Y2 into item 1 of OWARIput M2 into item 2 of OWARIput D2 into item 3 of OWARIconvert OWARI to secondsput (OWARI - HAJIME)/3600/24 into durreturn durend getDurationfunction getNextMonth Y,Mif M = 12thenput 1 into Mput Y+1 into Yelseput M+1 into Mend ifput "0,0" into bufput Y into item 1 of bufput M into item 2 of bufreturn bufend getNextMonth----テ①テdテテアテテ姪テゥテテョ--on dspAnualEv NEN,TUKI,HIif (TUKI =1) or (TUKI =2) or (TUKI =3) or (TUKI =4) then go cd "anu1"if (TUKI =5) or (TUKI =6) or (TUKI =7) or (TUKI =8) then go cd "anu2"if (TUKI =9) or (TUKI =10) or (TUKI =11) or (TUKI =12) then go cd "anu3"put TUKI mod 4 into AMARIif AMARI = 1thenput cd fld id 5 into SONOHIput cd fld id 1 into YOTEIput cd fld id 9 into YOKOKUend ifif AMARI = 2thenput cd fld id 7 into SONOHIput cd fld id 3 into YOTEIput cd fld id 11 into YOKOKUend ifif AMARI = 3thenput cd fld id 6 into SONOHIput cd fld id 2 into YOTEIput cd fld id 10 into YOKOKUend ifif AMARI = 4thenput cd fld id 8 into SONOHIput cd fld id 4 into YOTEIput cd fld id 12 into YOKOKUend ifput number of lines of delReturns(YOTEI) into Nrepeat with i = 1 to Nput line i of SONOHI into D1put line i of YOKOKU into YKput getDuration(NEN,TUKI,HI,NEN,TUKI,D1) into KIKANif KIKAN < 0 then next repeat -- テ「ïャづツィテホゥテ窶。テテif KIKAN = 0 -- テァツーテャヒthenput line i of YOTEI into EVENTnoticeEventZero EVENTnext repeatend ifif KIKAN <= YK -- テウ¥テァテェテ、ヒ凖、窶佚ャ窶。thenput line i of YOTEI into EVENTnoticeEventPrev EVENT,KIKANnext repeatend ifend repeatput getNextMonth(NEN,TUKI) into RAIGETUput item 1 of RAIGETU into N2put item 2 of RAIGETU into T2if (T2 =1) or (T2 =2) or (T2 =3) or (T2 =4) then go cd "anu1"if (T2 =5) or (T2 =6) or (T2 =7) or (T2 =8) then go cd "anu2"if (T2 =9) or (T2 =10) or (T2 =11) or (T2 =12) then go cd "anu3"put T2 mod 4 into AMARIif AMARI = 1thenput cd fld id 5 into SONOHIput cd fld id 1 into YOTEIput cd fld id 9 into YOKOKUend ifif AMARI = 2thenput cd fld id 7 into SONOHIput cd fld id 3 into YOTEIput cd fld id 11 into YOKOKUend ifif AMARI = 3thenput cd fld id 6 into SONOHIput cd fld id 2 into YOTEIput cd fld id 10 into YOKOKUend ifif AMARI = 4thenput cd fld id 8 into SONOHIput cd fld id 4 into YOTEIput cd fld id 12 into YOKOKUend ifput number of lines of delReturns(YOTEI) into Nrepeat with i = 1 to Nput line i of SONOHI into D1put line i of YOKOKU into YKput getDuration(NEN,TUKI,HI,N2,T2,D1) into KIKANif KIKAN < 0 then next repeat -- テ「ïャづツィテホゥテ窶。テテif KIKAN <= YK -- テウ¥テァテェテ、ヒ凖、窶佚ャ窶。thenput line i of YOTEI into EVENTnoticeEventPrev EVENT,KIKANnext repeatend ifend repeatend dspAnualEvon dspMonthEv NEN,TUKI,HIgo cd "Monthly"put getNextMonth(NEN,TUKI) into RAIGETUput item 1 of RAIGETU into N2put item 2 of RAIGETU into T2put cd fld id 2 into SONOHIput cd fld id 1 into YOTEIput cd fld id 3 into YOKOKUput number of lines of delReturns(YOTEI) into Nrepeat with i = 1 to Nput line i of SONOHI into D1put line i of YOKOKU into YKput getDuration(NEN,TUKI,HI,NEN,TUKI,D1) into KIKAN --テ・テゥテï」ソテ窶ケテホゥテ邃「テツサテツ「テゥテサif KIKAN < 0 then next repeat -- テ「ïャづツィテホゥテ窶。テテput getDuration(NEN,TUKI,HI,N2,T2,D1) into KIKAN2 --テ・テゥテï」ソテ窶ケテホゥテツ「テテヲテゥテサif KIKAN2 < 0 then next repeat -- テ「ïャづツィテホゥテ窶。テテif KIKAN = 0 -- テァツーテャヒthenput line i of YOTEI into EVENTnoticeEventZero EVENTnext repeatend ifif KIKAN2 <= YK -- テウ¥テァテェテ、ヒ凖、窶佚ャ窶。thenput line i of YOTEI into EVENTnoticeEventPrev EVENT,KIKAN2end ifif KIKAN <= YK -- テウ¥テァテェテ、ヒ凖、窶佚ャ窶。thenput line i of YOTEI into EVENTnoticeEventPrev EVENT,KIKANend ifend repeatend dspMonthEvon dspWeekEv YOBIgo cd "Weekly"put cd fld YOBI into EVEput number of lines of EVE into Nrepeat with i = 1 to Nput line i of EVE into EVENTif EVENT = "" then next repeatnoticeEventZero EVENTend repeatend dspWeekEvon dspOneTimeEv NEN,TUKI,HIgo cd "One Time Rem"put cd fld id 1 into SONOTUKIput cd fld id 2 into SONOHIput cd fld id 3 into YOTEIput cd fld id 5 into YOKOKUput cd fld id 10 into SONOTOSIput number of lines of delReturns(YOTEI) into Nrepeat with i = 1 to Nput line i of SONOTUKI into M1put line i of SONOHI into D1if (M1 = "") or (D1 = "") then next repeatput line i of SONOTOSI into Y1if (Y1 <> "") and (Y1 <> NEN) then next repeatput line i of YOKOKU into YKput getDuration(NEN,TUKI,HI,NEN,M1,D1) into KIKANif KIKAN < 0 then next repeat -- テ「ïャづツィテホゥテ窶。テテif KIKAN = 0 -- テァツーテャヒthenput line i of YOTEI into EVENTnoticeEventZero EVENTnext repeatend ifif KIKAN <= YK -- テウ¥テァテェテ、ヒ凖、窶佚ャ窶。thenput line i of YOTEI into EVENTnoticeEventPrev EVENT,KIKANend ifend repeatend dspOneTimeEvon dspSpecialEv NEN,TUKI,HIgo cd "テャツ。テゥテ催嘉、テ厭テ韻テ嘉ャテ雲テ ["send mouseUp to cd btn "テャヒ凖ッtテï」ソテ・vテゥZ"put getNextMonth(NEN,TUKI) into RAIGETUput item 1 of RAIGETU into N2put item 2 of RAIGETU into T2put cd fld id 12 into SONOHIput cd fld id 14 into SONOHI2put cd fld id 3 into YOTEIput cd fld id 5 into YOKOKUput number of lines of delReturns(YOTEI) into Nrepeat with i = 1 to Nput line i of SONOHI into D1put line i of SONOHI2 into D2put line i of YOKOKU into YKput getDuration(NEN,TUKI,HI,NEN,TUKI,D1) into KIKANif KIKAN < 0 then next repeatput getDuration(NEN,TUKI,HI,N2,T2,D2) into KIKAN2if KIKAN2 < 0 then next repeatif KIKAN = 0 -- テァツーテャヒthenput line i of YOTEI into EVENTnoticeEventZero EVENTnext repeatend ifif KIKAN2 <= YK -- テウ¥テァテェテ、ヒ凖、窶佚ャ窶。thenput line i of YOTEI into EVENTnoticeEventPrev EVENT,KIKAN2end ifif KIKAN <= YK -- テウ¥テァテェテ、ヒ凖、窶佚ャ窶。thenput line i of YOTEI into EVENTnoticeEventPrev EVENT,KIKANend ifend repeatend dspSpecialEv-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- ---- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --function dayTodate YEAR,MONTH,DAINAN,YOBIput "0,0,1,0,0,0,0" into daybufput YEAR into item 1 of daybufput MONTH into item 2 of daybufconvert daybuf to dateItemsput item 7 of daybuf into yobi1if YOBI >= yobi1thenput YOBI - yobi1 + 1 into AMARIelseput YOBI - yobi1 + 8 into AMARIend ifput (DAINAN -1)* 7 + AMARI into SONOHIreturn SONOHIend dayTodateon goTotheday hidukeglobal NameCardput item 1 of hiduke into yearput item 2 of hiduke into monthput item 3 of hiduke into dayput "0,0,0,0,0,0,0" into NameCardput year into item 1 of NameCardput month into item 2 of NameCardput day into item 3 of NameCardconvert NameCard to dateItemsgo cd NameCardif the result is not emptythengo first cd of bg "テ厩テ臼テ姥テ嘉姪 [テ嘉」"doMenu "New Card"end ifgo cd NameCardend goTothedayon alermSet YOBIgo cd "テ陰テ嘉「テ [テ嘉テゥツゥテャテテェ窶コテュテ"put number of lines of delReturns(cd fld"テャ窶。テウe") into nrepeat with i = 1 to nput line i of cd fld "テウjテャヒ" into eventYobiput yobiToNumber(eventYobi) into eventYobiif eventYobi = YOBIthenput line i of cd fld "テャ窶。テウe" into NAIYOUput line i of cd fld "テ「ホゥテゥテサ" into NANJIput line i of cd fld "テ「ホゥテッ邃「" into NANPUNgoBackTodayput number of lines of delReturns(fld"テ陰テ嘉「テ [テ嘉テ嘉 テ叡テ瓜テ [テ姥") into mput NAIYOU into line m+1 of fld "テ陰テ嘉「テ [テ嘉テ嘉 テ叡テ瓜テ [テ姥"put NANJI into line m+1 of fld "テ陰テ嘉「テ [テ嘉テゥテサ"put NANPUN into line m+1 of fld "テ陰テ嘉「テ [テ嘉テッ邃「"go backend ifend repeatend alermSet----テ①テァツーテャヒ凖邃「テ韻テ悦テ嘉ャテ曳テャヒ凖テヲテツ。テホゥテテティテォテ竕 --on noticeEventZero EVENTgoBackTodayput "テァツーテャヒ凖テ" && EVENT && "テ竕暗竏" after fld id 59put return after fld id 59go backend noticeEventZero----テ①テァツーテャヒ凖邃「テ韻テ悦テ嘉ャテ曳テウ¥テァテェテャヒ凖テヲテツ。テホゥテテティテォテ竕 --on noticeEventPrev EVENT,DURAgoBackTodayif DURA = 1thenput EVENT && "テテ陛アテヲテャヒ凖竕暗竏" after fld id 59elseif DURA = 2thenput EVENT && "テテ陛窶 テ竕・テツ。テニ津竕暗竏" after fld id 59elseput EVENT && "テ窶ケテ竕" && DURA && "テャヒ凖竕暗竏" after fld id 59end ifend ifput return after fld id 59go backend noticeEventPrevon putDayToDate NEN,TUKIif TUKI = 12thenput 1 into nextTUKIput NEN + 1 into nextNENelseput TUKI +1 into nextTUKIput NEN into nextNENend ifput nextTUKI into fld "テウテ テ・テゥ"put nextNEN into fld "テウテ テョN"-- put the number of lines of cd fld "テャ窶。テウe" into eventLinerepeat with i = 1 to 16put line i of cd fld "テォテ甘「ホゥ" into eventDaiput line i of cd fld "テウjテャヒ" into eventYobiif eventDai = ""thenput "" into line i of cd fld "テァツーテ・テゥテテεャヒ"put "" into line i of cd fld "テウテ テ・テゥテテεャヒ"next repeatend ifif eventYobi = ""thenput "" into line i of cd fld "テァツーテ・テゥテテεャヒ"put "" into line i of cd fld "テウテ テ・テゥテテεャヒ"next repeatend ifput yobiToNumber(eventYobi) into eventYobiput dayTodate(NEN,TUKI,eventDai,eventYobi) into line i of cd fld "テァツーテ・テゥテテεャヒ"put dayTodate(nextNEN,nextTUKI,eventDai,eventYobi) into line i of cd fld "テウテ テ・テゥテテεャヒ"end repeatend putDayToDatefunction yobiToNumber YOBIif YOBI = "テャヒ"thenput 1 into YOBIelseif YOBI = "テ・テゥ"thenput 2 into YOBIelseif YOBI = "テ「ナ"thenput 3 into YOBIelseif YOBI = "テェテ"thenput 4 into YOBIelseif YOBI = "テアテソ"thenput 5 into YOBIelseif YOBI = "テ」窶。"thenput 6 into YOBIelseput 7 into YOBIend ifend ifend ifend ifend ifend ifreturn YOBIend yobiToNumberon cremcreate menu "テソナ凪王窶コツソïャ」1.0"put "One Time,Weekly,Monthly,Annually,テャツ。テゥテ" into menu "テソナ凪王窶コツソïャ」1.0"ツャwith menuMsg "go to cd id 5242,go to cd id 9333,go to cd id 9903,go to cd id 11383,go to cd id 18647"end cremon delmdelete menu "テソナ凪王窶コツソïャ」1.0"end delmon idleglobal konoCardput fld "テ」Nテャテテャヒ" of cd "テ迂テ [テ益テ泳テ嘉ャテ碓テ嘉 テ叡テ瓜テ [テ姥" into CDNAMEput fld "テ陰テ嘉「テ [テ嘉テゥテサ" of cd CDNAME into ALMHOURput fld "テ陰テ嘉「テ [テ嘉テッ邃「" of cd CDNAME into ALMMINUTput fld "テ陰テ嘉「テ [テ嘉テ厩テ影テ [テ運テ厩" of cd CDNAME into ALMASTSput fld "テ陰テ嘉「テ [テ嘉テ嘉 テ叡テ瓜テ [テ姥" of cd CDNAME into ALMMSGput number of lines of ALMHOUR into nget timeNow()put item 1 of it into hourNowput item 2 of it into minNowrepeat with i = 1 to n-- テァナ禿テ津テヲテテεテ陛ア竕・ティï」ソテ・ティテ窶ヲテ竏テナ津竏if line i of ALMASTS = "テァナ" then next repeat-- テゥテサテ、窶佚邃「テ窶ケテテヲテツサテテεテ陛ア竕・ティï」ソテ・ティテ窶ヲテ竏テナ津竏if line i of ALMHOUR > hourNow then next repeatput line i of ALMMSG into ALERTMESput line i of ALMHOUR into ALERTHOURput line i of ALMMINUT into ALERTMIN-- テゥテサテ、窶佚邃「テ「ïャづツィテホゥテ窶。テテif line i of ALMHOUR < hourNowthenif ALERTMIN = empty then next repeatput ALERTHOUR & ":" & ALERTMIN & " テウ¥テュテ凝テ" & ALERTMES &" テ邃「テ「ïャづツィテニ津ツ「テ窶ケテ竏" into ALERTMESanswer ALERTMESput "テァナ" into line i of fld "テ陰テ嘉「テ [テ嘉テ厩テ影テ [テ運テ厩" of cd CDNAMEnext repeatend if-- テゥテサテ、窶佚邃「テャテ佚竏づ窶。テテif ALERTMIN < minNowthenif ALERTMIN = empty then next repeatput ALERTHOUR & ":" & ALERTMIN & " テウ¥テュテ凝テ" & ALERTMES &" テ邃「テ「ïャづツィテニ津ツ「テ窶ケテ竏" into ALERTMESanswer ALERTMESput "テァナ" into line i of fld "テ陰テ嘉「テ [テ嘉テ厩テ影テ [テ運テ厩" of cd CDNAMEnext repeatend if-- テゥテサテァティテ邃「テャテ佚竏づ窶。テテif ALERTMIN = minNowthenput ALERTMES &" テテεゥテサテ、窶佚竕暗竏" into ALERTMESput ALERTHOUR & ":" & ALERTMIN & "テ①テ①" before ALERTMESopen the long name of HyperCardplay Boinganswer ALERTMESput "テァナ" into line i of fld "テ陰テ嘉「テ [テ嘉テ厩テ影テ [テ運テ厩" of cd CDNAMEend ifend repeat-- テ運テ韻テ厭テ [if the hilight of bg btn "TimerOn" of cd konoCard is false then exit idleput fld "テ運テ韻テ厭テ [テ厩テ運テ [テ曳" of cd konoCard into NARASUif NARASU = "" then exit idleput the seconds into IMAput NARASU - IMA into JIKANSAput JIKANSA div 60 into FUNput JIKANSA mod 60 into BYOif FUN = 0 thenput "" into fld "テ運テ韻テ厭テ [テッ邃「" of cd konoCardelseput FUN into fld "テ運テ韻テ厭テ [テッ邃「" of cd konoCardend ifput BYO into fld "テ運テ韻テ厭テ [テッb" of cd konoCardif (FUN = 0) and (BYO = 0)thenput "" into fld "テ運テ韻テ厭テ [テ厩テ運テ [テ曳" of cd konoCardput "" into fld "テ運テ韻テ厭テ [テッb" of cd konoCardhide fld "テ運テ韻テ厭テ [テッ邃「" of cd konoCardhide fld "テ運テ韻テ厭テ [テッb" of cd konoCardhide bg btn "TimerOn" of cd konoCardopen the long name of HyperCardplay Boinganswer "テゥテサテ、窶佚竕暗竏"end ifend idlefunction timeNowput the short time into ALMTIMEconvert ALMTIME to secondsput date() into KYOUconvert KYOU to secondsput ALMTIME - KYOU into ALMTIMEput ALMTIME / 60 into FUNput FUN div 60 into JIKANput FUN mod 60 into FUNreturn JIKAN & "," & FUNend timeNow</script>